home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / main.dxr / 00013.ls < prev    next >
Encoding:
Text File  |  1996-10-02  |  1.5 KB  |  48 lines
  1. on exitFrame
  2.   global gStartClick, gCGframe, gCTBframe
  3.   if gStartClick <> 0 then
  4.     if gCGframe = the number of member "CG.end" then
  5.       set gCGframe to gCGframe - 1
  6.       set the puppet of sprite 2 to 1
  7.       set the memberNum of sprite 2 to gCGframe
  8.       updateStage()
  9.     else
  10.       if (gCGframe > the number of member "CG.start") and (gCGframe < the number of member "CG.end") then
  11.         set gCGframe to gCGframe - 1
  12.         if the puppet of sprite 2 <> 1 then
  13.           set the puppet of sprite 2 to 1
  14.         end if
  15.         set the memberNum of sprite 2 to gCGframe
  16.         updateStage()
  17.       else
  18.         if the puppet of sprite 2 <> 0 then
  19.           set the visible of sprite 2 to 0
  20.           set the puppet of sprite 2 to 0
  21.         end if
  22.         updateStage()
  23.       end if
  24.     end if
  25.     if gCTBframe = the number of member "ctb.end" then
  26.       set gCTBframe to gCTBframe - 1
  27.       set the puppet of sprite 3 to 1
  28.       set the memberNum of sprite 3 to gCTBframe
  29.       updateStage()
  30.     else
  31.       if (gCTBframe > the number of member "ctb.start") and (gCTBframe < the number of member "ctb.end") then
  32.         set gCTBframe to gCTBframe - 1
  33.         if the puppet of sprite 3 <> 1 then
  34.           set the puppet of sprite 3 to 1
  35.         end if
  36.         set the memberNum of sprite 3 to gCTBframe
  37.         updateStage()
  38.       else
  39.         if the puppet of sprite 3 <> 0 then
  40.           set the visible of sprite 3 to 0
  41.           set the puppet of sprite 3 to 0
  42.         end if
  43.         updateStage()
  44.       end if
  45.     end if
  46.   end if
  47. end
  48.